VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmTotaleSeduteGiornaliereRegistrate 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Totale sedute giornaliere registrate"
   ClientHeight    =   5625
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   14760
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5625
   ScaleWidth      =   14760
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   732
      Left            =   120
      TabIndex        =   5
      Top             =   0
      Width           =   14535
      Begin VB.ComboBox cboMeseInziale 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "frmTotaleSeduteGiornaliereRegistrate.frx":0000
         Left            =   1600
         List            =   "frmTotaleSeduteGiornaliereRegistrate.frx":0028
         Style           =   2  'Dropdown List
         TabIndex        =   8
         Top             =   250
         Width           =   1572
      End
      Begin VB.ComboBox cboAnno 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "frmTotaleSeduteGiornaliereRegistrate.frx":0096
         Left            =   6960
         List            =   "frmTotaleSeduteGiornaliereRegistrate.frx":0098
         Style           =   2  'Dropdown List
         TabIndex        =   7
         Top             =   250
         Width           =   855
      End
      Begin VB.ComboBox cboMeseFianle 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "frmTotaleSeduteGiornaliereRegistrate.frx":009A
         Left            =   4560
         List            =   "frmTotaleSeduteGiornaliereRegistrate.frx":00C2
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   250
         Width           =   1572
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "Anno"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   0
         Left            =   6360
         TabIndex        =   11
         Top             =   285
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "Dal mese di"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   1
         Left            =   240
         TabIndex        =   10
         Top             =   285
         Width           =   1260
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "Al mese di"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Index           =   2
         Left            =   3360
         TabIndex        =   9
         Top             =   285
         Width           =   1110
      End
   End
   Begin VB.Frame fraListaMain 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4212
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   14532
      Begin MSFlexGridLib.MSFlexGrid flxGriglia 
         Height          =   3852
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   14292
         _ExtentX        =   25215
         _ExtentY        =   6800
         _Version        =   393216
         Rows            =   13
         Cols            =   32
         ScrollTrack     =   -1  'True
         MousePointer    =   15
         FormatString    =   $"frmTotaleSeduteGiornaliereRegistrate.frx":0130
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MouseIcon       =   "frmTotaleSeduteGiornaliereRegistrate.frx":026B
      End
   End
   Begin VB.Frame fraAzioni 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   120
      TabIndex        =   2
      Top             =   4680
      Width           =   14532
      Begin VB.CommandButton cmdStampa 
         Caption         =   "&Stampa"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   11640
         TabIndex        =   13
         Top             =   240
         Width           =   1455
      End
      Begin VB.CommandButton cmdElabora 
         Caption         =   "&Elabora"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   10080
         TabIndex        =   12
         Top             =   240
         Width           =   1455
      End
      Begin VB.CommandButton cmdChiudi 
         Caption         =   "&Chiudi"
         CausesValidation=   0   'False
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   13200
         TabIndex        =   0
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label lblTotalePazienti 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   285
         Left            =   2140
         TabIndex        =   3
         Top             =   360
         Width           =   375
      End
   End
End
Attribute VB_Name = "frmTotaleSeduteGiornaliereRegistrate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rsTotale As Recordset

Private Sub Form_Load()
    Dim i As Integer
    Dim k As Integer
    Dim intTop As Single
    Dim intLeft As Single
   
    Call GetCenterForm(Me.Height, Me.Width, intTop, intLeft)
    Me.Top = intTop
    Me.Left = intLeft
    
    With flxGriglia
        .MousePointer = flexCustom
        .row = 0
        For i = 0 To 31
            .col = i
            .CellFontBold = True
        Next i
        .col = 0
        For i = 1 To 12
            .row = i
            .CellFontBold = True
            .CellBackColor = RGB(231, 255, 255)
        Next i
    End With
    cboMeseFianle.ListIndex = Month(date) - 1
    cboMeseInziale.ListIndex = Month(date) - 1
    cboAnno.AddItem Year(Now)
    cboAnno.AddItem Year(Now) - 1
    cboAnno.ListIndex = 0

End Sub

Private Sub cmdChiudi_Click()
    Unload frmTotaleSeduteGiornaliereRegistrate
End Sub

Private Sub cmdElabora_Click()
    If cboMeseInziale.ListIndex > cboMeseFianle.ListIndex Then
        MsgBox "INTERVALLO INCONGRUENTE mese INIZIALE - mese FINALE", vbCritical, "ATTENZIONE!!!"
        cboMeseFianle.SetFocus
        Exit Sub
    Else
        PulisciGriglia
        Dim m As Integer
        Dim g As Integer
        Set rsTotale = New Recordset
        'ciclo per il mese
        For m = cboMeseInziale.ListIndex + 1 To cboMeseFianle.ListIndex + 1
            'ciclo per i giorni
            For g = 1 To 31
                rsTotale.Open "SELECT * FROM SCHEDE_DIALISI WHERE ERRATA=FALSE AND day([DATA])=" & g & " AND Month([DATA])=" & m & " AND Year([DATA])=" & cboAnno, cnPrinc, adOpenForwardOnly, adLockReadOnly, adCmdText
                flxGriglia.col = 0
                flxGriglia.TextMatrix(m, g) = rsTotale.RecordCount
                Set rsTotale = New Recordset
            Next g
        Next m
        Set rsTotale = Nothing
        cmdStampa.Enabled = True
    End If
End Sub

Private Sub cmdStampa_Click()
Dim strSql As String
Dim giorno As Integer
Dim cnConn As Connection        ' connessione per lo shape
Dim rsMain As Recordset         ' recordset padre per lo shape
     
    strSql = "SHAPE APPEND  " & _
                    "       NEW adVarChar (5) as GENNAIO_1, " & _
                    "       NEW adVarChar (5) as GENNAIO_2, " & _
                    "       NEW adVarChar (5) as GENNAIO_3, " & _
                    "       NEW adVarChar (5) as GENNAIO_4, " & _
                    "       NEW adVarChar (5) as GENNAIO_5, " & _
                    "       NEW adVarChar (5) as GENNAIO_6, " & _
                    "       NEW adVarChar (5) as GENNAIO_7, " & _
                    "       NEW adVarChar (5) as GENNAIO_8, " & _
                    "       NEW adVarChar (5) as GENNAIO_9, " & _
                    "       NEW adVarChar (5) as GENNAIO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as GENNAIO_11, " & _
                    "       NEW adVarChar (5) as GENNAIO_12, " & _
                    "       NEW adVarChar (5) as GENNAIO_13, " & _
                    "       NEW adVarChar (5) as GENNAIO_14, " & _
                    "       NEW adVarChar (5) as GENNAIO_15, " & _
                    "       NEW adVarChar (5) as GENNAIO_16, " & _
                    "       NEW adVarChar (5) as GENNAIO_17, " & _
                    "       NEW adVarChar (5) as GENNAIO_18, " & _
                    "       NEW adVarChar (5) as GENNAIO_19, " & _
                    "       NEW adVarChar (5) as GENNAIO_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as GENNAIO_21, " & _
                    "       NEW adVarChar (5) as GENNAIO_22, " & _
                    "       NEW adVarChar (5) as GENNAIO_23, " & _
                    "       NEW adVarChar (5) as GENNAIO_24, " & _
                    "       NEW adVarChar (5) as GENNAIO_25, " & _
                    "       NEW adVarChar (5) as GENNAIO_26, " & _
                    "       NEW adVarChar (5) as GENNAIO_27, " & _
                    "       NEW adVarChar (5) as GENNAIO_28, " & _
                    "       NEW adVarChar (5) as GENNAIO_29, " & _
                    "       NEW adVarChar (5) as GENNAIO_30, " & _
                    "       NEW adVarChar (5) as GENNAIO_31, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as FEBBRAIO_1, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_2, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_3, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_4, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_5, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_6, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_7, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_8, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_9, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as FEBBRAIO_11, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_12, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_13, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_14, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_15, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_16, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_17, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_18, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_19, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_20, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_21, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as FEBBRAIO_22, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_23, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_24, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_25, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_26, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_27, " & _
                    "       NEW adVarChar (5) as FEBBRAIO_28, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as MARZO_1, " & _
                    "       NEW adVarChar (5) as MARZO_2, " & _
                    "       NEW adVarChar (5) as MARZO_3, " & _
                    "       NEW adVarChar (5) as MARZO_4, " & _
                    "       NEW adVarChar (5) as MARZO_5, " & _
                    "       NEW adVarChar (5) as MARZO_6, " & _
                    "       NEW adVarChar (5) as MARZO_7, " & _
                    "       NEW adVarChar (5) as MARZO_8, " & _
                    "       NEW adVarChar (5) as MARZO_9, " & _
                    "       NEW adVarChar (5) as MARZO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as MARZO_11, " & _
                    "       NEW adVarChar (5) as MARZO_12, " & _
                    "       NEW adVarChar (5) as MARZO_13, " & _
                    "       NEW adVarChar (5) as MARZO_14, " & _
                    "       NEW adVarChar (5) as MARZO_15, " & _
                    "       NEW adVarChar (5) as MARZO_16, " & _
                    "       NEW adVarChar (5) as MARZO_17, " & _
                    "       NEW adVarChar (5) as MARZO_18, " & _
                    "       NEW adVarChar (5) as MARZO_19, " & _
                    "       NEW adVarChar (5) as MARZO_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as MARZO_21, " & _
                    "       NEW adVarChar (5) as MARZO_22, " & _
                    "       NEW adVarChar (5) as MARZO_23, " & _
                    "       NEW adVarChar (5) as MARZO_24, " & _
                    "       NEW adVarChar (5) as MARZO_25, " & _
                    "       NEW adVarChar (5) as MARZO_26, " & _
                    "       NEW adVarChar (5) as MARZO_27, " & _
                    "       NEW adVarChar (5) as MARZO_28, " & _
                    "       NEW adVarChar (5) as MARZO_29, " & _
                    "       NEW adVarChar (5) as MARZO_30, " & _
                    "       NEW adVarChar (5) as MARZO_31, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as APRILE_1, " & _
                    "       NEW adVarChar (5) as APRILE_2, " & _
                    "       NEW adVarChar (5) as APRILE_3, " & _
                    "       NEW adVarChar (5) as APRILE_4, " & _
                    "       NEW adVarChar (5) as APRILE_5, " & _
                    "       NEW adVarChar (5) as APRILE_6, " & _
                    "       NEW adVarChar (5) as APRILE_7, " & _
                    "       NEW adVarChar (5) as APRILE_8, " & _
                    "       NEW adVarChar (5) as APRILE_9, " & _
                    "       NEW adVarChar (5) as APRILE_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as APRILE_11, " & _
                    "       NEW adVarChar (5) as APRILE_12, " & _
                    "       NEW adVarChar (5) as APRILE_13, " & _
                    "       NEW adVarChar (5) as APRILE_14, " & _
                    "       NEW adVarChar (5) as APRILE_15, " & _
                    "       NEW adVarChar (5) as APRILE_16, " & _
                    "       NEW adVarChar (5) as APRILE_17, " & _
                    "       NEW adVarChar (5) as APRILE_18, " & _
                    "       NEW adVarChar (5) as APRILE_19, " & _
                    "       NEW adVarChar (5) as APRILE_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as APRILE_21, " & _
                    "       NEW adVarChar (5) as APRILE_22, " & _
                    "       NEW adVarChar (5) as APRILE_23, " & _
                    "       NEW adVarChar (5) as APRILE_24, " & _
                    "       NEW adVarChar (5) as APRILE_25, " & _
                    "       NEW adVarChar (5) as APRILE_26, " & _
                    "       NEW adVarChar (5) as APRILE_27, " & _
                    "       NEW adVarChar (5) as APRILE_28, " & _
                    "       NEW adVarChar (5) as APRILE_29, " & _
                    "       NEW adVarChar (5) as APRILE_30, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as MAGGIO_1, " & _
                    "       NEW adVarChar (5) as MAGGIO_2, " & _
                    "       NEW adVarChar (5) as MAGGIO_3, " & _
                    "       NEW adVarChar (5) as MAGGIO_4, " & _
                    "       NEW adVarChar (5) as MAGGIO_5, " & _
                    "       NEW adVarChar (5) as MAGGIO_6, " & _
                    "       NEW adVarChar (5) as MAGGIO_7, " & _
                    "       NEW adVarChar (5) as MAGGIO_8, " & _
                    "       NEW adVarChar (5) as MAGGIO_9, " & _
                    "       NEW adVarChar (5) as MAGGIO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as MAGGIO_11, " & _
                    "       NEW adVarChar (5) as MAGGIO_12, " & _
                    "       NEW adVarChar (5) as MAGGIO_13, " & _
                    "       NEW adVarChar (5) as MAGGIO_14, " & _
                    "       NEW adVarChar (5) as MAGGIO_15, " & _
                    "       NEW adVarChar (5) as MAGGIO_16, " & _
                    "       NEW adVarChar (5) as MAGGIO_17, " & _
                    "       NEW adVarChar (5) as MAGGIO_18, " & _
                    "       NEW adVarChar (5) as MAGGIO_19, " & _
                    "       NEW adVarChar (5) as MAGGIO_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as MAGGIO_21, " & _
                    "       NEW adVarChar (5) as MAGGIO_22, " & _
                    "       NEW adVarChar (5) as MAGGIO_23, " & _
                    "       NEW adVarChar (5) as MAGGIO_24, " & _
                    "       NEW adVarChar (5) as MAGGIO_25, " & _
                    "       NEW adVarChar (5) as MAGGIO_26, " & _
                    "       NEW adVarChar (5) as MAGGIO_27, " & _
                    "       NEW adVarChar (5) as MAGGIO_28, " & _
                    "       NEW adVarChar (5) as MAGGIO_29, " & _
                    "       NEW adVarChar (5) as MAGGIO_30, " & _
                    "       NEW adVarChar (5) as MAGGIO_31, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as GIUGNO_1, " & _
                    "       NEW adVarChar (5) as GIUGNO_2, " & _
                    "       NEW adVarChar (5) as GIUGNO_3, " & _
                    "       NEW adVarChar (5) as GIUGNO_4, " & _
                    "       NEW adVarChar (5) as GIUGNO_5, " & _
                    "       NEW adVarChar (5) as GIUGNO_6, " & _
                    "       NEW adVarChar (5) as GIUGNO_7, " & _
                    "       NEW adVarChar (5) as GIUGNO_8, " & _
                    "       NEW adVarChar (5) as GIUGNO_9, " & _
                    "       NEW adVarChar (5) as GIUGNO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as GIUGNO_11, " & _
                    "       NEW adVarChar (5) as GIUGNO_12, " & _
                    "       NEW adVarChar (5) as GIUGNO_13, " & _
                    "       NEW adVarChar (5) as GIUGNO_14, " & _
                    "       NEW adVarChar (5) as GIUGNO_15, " & _
                    "       NEW adVarChar (5) as GIUGNO_16, " & _
                    "       NEW adVarChar (5) as GIUGNO_17, " & _
                    "       NEW adVarChar (5) as GIUGNO_18, " & _
                    "       NEW adVarChar (5) as GIUGNO_19, " & _
                    "       NEW adVarChar (5) as GIUGNO_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as GIUGNO_21, " & _
                    "       NEW adVarChar (5) as GIUGNO_22, " & _
                    "       NEW adVarChar (5) as GIUGNO_23, " & _
                    "       NEW adVarChar (5) as GIUGNO_24, " & _
                    "       NEW adVarChar (5) as GIUGNO_25, " & _
                    "       NEW adVarChar (5) as GIUGNO_26, " & _
                    "       NEW adVarChar (5) as GIUGNO_27, " & _
                    "       NEW adVarChar (5) as GIUGNO_28, " & _
                    "       NEW adVarChar (5) as GIUGNO_29, " & _
                    "       NEW adVarChar (5) as GIUGNO_30, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as LUGLIO_1, " & _
                    "       NEW adVarChar (5) as LUGLIO_2, " & _
                    "       NEW adVarChar (5) as LUGLIO_3, " & _
                    "       NEW adVarChar (5) as LUGLIO_4, " & _
                    "       NEW adVarChar (5) as LUGLIO_5, " & _
                    "       NEW adVarChar (5) as LUGLIO_6, " & _
                    "       NEW adVarChar (5) as LUGLIO_7, " & _
                    "       NEW adVarChar (5) as LUGLIO_8, " & _
                    "       NEW adVarChar (5) as LUGLIO_9, " & _
                    "       NEW adVarChar (5) as LUGLIO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as LUGLIO_11, " & _
                    "       NEW adVarChar (5) as LUGLIO_12, " & _
                    "       NEW adVarChar (5) as LUGLIO_13, " & _
                    "       NEW adVarChar (5) as LUGLIO_14, " & _
                    "       NEW adVarChar (5) as LUGLIO_15, " & _
                    "       NEW adVarChar (5) as LUGLIO_16, " & _
                    "       NEW adVarChar (5) as LUGLIO_17, " & _
                    "       NEW adVarChar (5) as LUGLIO_18, " & _
                    "       NEW adVarChar (5) as LUGLIO_19, " & _
                    "       NEW adVarChar (5) as LUGLIO_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as LUGLIO_21, " & _
                    "       NEW adVarChar (5) as LUGLIO_22, " & _
                    "       NEW adVarChar (5) as LUGLIO_23, " & _
                    "       NEW adVarChar (5) as LUGLIO_24, " & _
                    "       NEW adVarChar (5) as LUGLIO_25, " & _
                    "       NEW adVarChar (5) as LUGLIO_26, " & _
                    "       NEW adVarChar (5) as LUGLIO_27, " & _
                    "       NEW adVarChar (5) as LUGLIO_28, " & _
                    "       NEW adVarChar (5) as LUGLIO_29, " & _
                    "       NEW adVarChar (5) as LUGLIO_30, " & _
                    "       NEW adVarChar (5) as LUGLIO_31, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as AGOSTO_1, " & _
                    "       NEW adVarChar (5) as AGOSTO_2, " & _
                    "       NEW adVarChar (5) as AGOSTO_3, " & _
                    "       NEW adVarChar (5) as AGOSTO_4, " & _
                    "       NEW adVarChar (5) as AGOSTO_5, " & _
                    "       NEW adVarChar (5) as AGOSTO_6, " & _
                    "       NEW adVarChar (5) as AGOSTO_7, " & _
                    "       NEW adVarChar (5) as AGOSTO_8, " & _
                    "       NEW adVarChar (5) as AGOSTO_9, " & _
                    "       NEW adVarChar (5) as AGOSTO_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as AGOSTO_11, " & _
                    "       NEW adVarChar (5) as AGOSTO_12, " & _
                    "       NEW adVarChar (5) as AGOSTO_13, " & _
                    "       NEW adVarChar (5) as AGOSTO_14, " & _
                    "       NEW adVarChar (5) as AGOSTO_15, " & _
                    "       NEW adVarChar (5) as AGOSTO_16, " & _
                    "       NEW adVarChar (5) as AGOSTO_17, " & _
                    "       NEW adVarChar (5) as AGOSTO_18, " & _
                    "       NEW adVarChar (5) as AGOSTO_19, " & _
                    "       NEW adVarChar (5) as AGOSTO_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as AGOSTO_21, " & _
                    "       NEW adVarChar (5) as AGOSTO_22, " & _
                    "       NEW adVarChar (5) as AGOSTO_23, " & _
                    "       NEW adVarChar (5) as AGOSTO_24, " & _
                    "       NEW adVarChar (5) as AGOSTO_25, " & _
                    "       NEW adVarChar (5) as AGOSTO_26, " & _
                    "       NEW adVarChar (5) as AGOSTO_27, " & _
                    "       NEW adVarChar (5) as AGOSTO_28, " & _
                    "       NEW adVarChar (5) as AGOSTO_29, " & _
                    "       NEW adVarChar (5) as AGOSTO_30, " & _
                    "       NEW adVarChar (5) as AGOSTO_31, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as SETTEMBRE_1, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_2, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_3, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_4, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_5, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_6, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_7, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_8, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_9, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as SETTEMBRE_11, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_12, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_13, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_14, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_15, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_16, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_17, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_18, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_19, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as SETTEMBRE_21, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_22, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_23, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_24, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_25, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_26, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_27, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_28, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_29, " & _
                    "       NEW adVarChar (5) as SETTEMBRE_30, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as OTTOBRE_1, " & _
                    "       NEW adVarChar (5) as OTTOBRE_2, " & _
                    "       NEW adVarChar (5) as OTTOBRE_3, " & _
                    "       NEW adVarChar (5) as OTTOBRE_4, " & _
                    "       NEW adVarChar (5) as OTTOBRE_5, " & _
                    "       NEW adVarChar (5) as OTTOBRE_6, " & _
                    "       NEW adVarChar (5) as OTTOBRE_7, " & _
                    "       NEW adVarChar (5) as OTTOBRE_8, " & _
                    "       NEW adVarChar (5) as OTTOBRE_9, " & _
                    "       NEW adVarChar (5) as OTTOBRE_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as OTTOBRE_11, " & _
                    "       NEW adVarChar (5) as OTTOBRE_12, " & _
                    "       NEW adVarChar (5) as OTTOBRE_13, " & _
                    "       NEW adVarChar (5) as OTTOBRE_14, " & _
                    "       NEW adVarChar (5) as OTTOBRE_15, " & _
                    "       NEW adVarChar (5) as OTTOBRE_16, " & _
                    "       NEW adVarChar (5) as OTTOBRE_17, " & _
                    "       NEW adVarChar (5) as OTTOBRE_18, " & _
                    "       NEW adVarChar (5) as OTTOBRE_19, " & _
                    "       NEW adVarChar (5) as OTTOBRE_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as OTTOBRE_21, " & _
                    "       NEW adVarChar (5) as OTTOBRE_22, " & _
                    "       NEW adVarChar (5) as OTTOBRE_23, " & _
                    "       NEW adVarChar (5) as OTTOBRE_24, " & _
                    "       NEW adVarChar (5) as OTTOBRE_25, " & _
                    "       NEW adVarChar (5) as OTTOBRE_26, " & _
                    "       NEW adVarChar (5) as OTTOBRE_27, " & _
                    "       NEW adVarChar (5) as OTTOBRE_28, " & _
                    "       NEW adVarChar (5) as OTTOBRE_29, " & _
                    "       NEW adVarChar (5) as OTTOBRE_30, " & _
                    "       NEW adVarChar (5) as OTTOBRE_31, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as NOVEMBRE_1, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_2, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_3, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_4, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_5, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_6, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_7, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_8, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_9, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as NOVEMBRE_11, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_12, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_13, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_14, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_15, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_16, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_17, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_18, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_19, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as NOVEMBRE_21, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_22, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_23, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_24, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_25, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_26, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_27, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_28, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_29, " & _
                    "       NEW adVarChar (5) as NOVEMBRE_30, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as DICEMBRE_1, " & _
                    "       NEW adVarChar (5) as DICEMBRE_2, " & _
                    "       NEW adVarChar (5) as DICEMBRE_3, " & _
                    "       NEW adVarChar (5) as DICEMBRE_4, " & _
                    "       NEW adVarChar (5) as DICEMBRE_5, " & _
                    "       NEW adVarChar (5) as DICEMBRE_6, " & _
                    "       NEW adVarChar (5) as DICEMBRE_7, " & _
                    "       NEW adVarChar (5) as DICEMBRE_8, " & _
                    "       NEW adVarChar (5) as DICEMBRE_9, " & _
                    "       NEW adVarChar (5) as DICEMBRE_10, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as DICEMBRE_11, " & _
                    "       NEW adVarChar (5) as DICEMBRE_12, " & _
                    "       NEW adVarChar (5) as DICEMBRE_13, " & _
                    "       NEW adVarChar (5) as DICEMBRE_14, " & _
                    "       NEW adVarChar (5) as DICEMBRE_15, " & _
                    "       NEW adVarChar (5) as DICEMBRE_16, " & _
                    "       NEW adVarChar (5) as DICEMBRE_17, " & _
                    "       NEW adVarChar (5) as DICEMBRE_18, " & _
                    "       NEW adVarChar (5) as DICEMBRE_19, " & _
                    "       NEW adVarChar (5) as DICEMBRE_20, "
    strSql = strSql & _
                    "       NEW adVarChar (5) as DICEMBRE_21, " & _
                    "       NEW adVarChar (5) as DICEMBRE_22, " & _
                    "       NEW adVarChar (5) as DICEMBRE_23, " & _
                    "       NEW adVarChar (5) as DICEMBRE_24, " & _
                    "       NEW adVarChar (5) as DICEMBRE_25, " & _
                    "       NEW adVarChar (5) as DICEMBRE_26, " & _
                    "       NEW adVarChar (5) as DICEMBRE_27, " & _
                    "       NEW adVarChar (5) as DICEMBRE_28, " & _
                    "       NEW adVarChar (5) as DICEMBRE_29, " & _
                    "       NEW adVarChar (5) as DICEMBRE_30, " & _
                    "       NEW adVarChar (5) as DICEMBRE_31 "

     ' apre la connessione per lo shape
    Set cnConn = New ADODB.Connection
    cnConn.Open "Data Provider=NONE; Provider=MSDataShape"
    Set rsMain = New ADODB.Recordset
    rsMain.Open strSql, cnConn, adOpenStatic, adLockOptimistic
    
    Set rptTotaleDialisiGiornaliere.DataSource = rsMain
    rptTotaleDialisiGiornaliere.LeftMargin = 0
    rptTotaleDialisiGiornaliere.RightMargin = 0
    rptTotaleDialisiGiornaliere.Orientation = rptOrientLandscape
               
    With rsMain
        .AddNew
            For giorno = 1 To 31
                .Fields("GENNAIO_" & giorno) = flxGriglia.TextMatrix(1, giorno)
            Next giorno
            
            For giorno = 1 To 28
              .Fields("FEBBRAIO_" & giorno) = flxGriglia.TextMatrix(2, giorno)
            Next giorno
            
            For giorno = 1 To 31
                .Fields("MARZO_" & giorno) = flxGriglia.TextMatrix(3, giorno)
            Next giorno
            
            For giorno = 1 To 30
            .Fields("APRILE_" & giorno) = flxGriglia.TextMatrix(4, giorno)
            Next giorno
            
            For giorno = 1 To 31
                .Fields("MAGGIO_" & giorno) = flxGriglia.TextMatrix(5, giorno)
            Next giorno
            
            For giorno = 1 To 30
            .Fields("GIUGNO_" & giorno) = flxGriglia.TextMatrix(6, giorno)
            Next giorno
            
            For giorno = 1 To 31
                .Fields("LUGLIO_" & giorno) = flxGriglia.TextMatrix(7, giorno)
            Next giorno
            
            For giorno = 1 To 31
            .Fields("AGOSTO_" & giorno) = flxGriglia.TextMatrix(8, giorno)
            Next giorno
            
            For giorno = 1 To 30
                .Fields("SETTEMBRE_" & giorno) = flxGriglia.TextMatrix(9, giorno)
            Next giorno
            
            For giorno = 1 To 31
            .Fields("OTTOBRE_" & giorno) = flxGriglia.TextMatrix(10, giorno)
            Next giorno
            
            For giorno = 1 To 30
                .Fields("NOVEMBRE_" & giorno) = flxGriglia.TextMatrix(11, giorno)
            Next giorno
            
            For giorno = 1 To 31
                .Fields("DICEMBRE_" & giorno) = flxGriglia.TextMatrix(12, giorno)
            Next giorno
    End With

    rptTotaleDialisiGiornaliere.Sections("Intestazione").Controls.Item("lblMeseIniziale").Caption = cboMeseInziale.Text
    rptTotaleDialisiGiornaliere.Sections("Intestazione").Controls.Item("lblMeseFinale").Caption = cboMeseFianle.Text
    rptTotaleDialisiGiornaliere.Sections("Intestazione").Controls.Item("lblAnno").Caption = cboAnno.Text
    rptTotaleDialisiGiornaliere.PrintReport True, rptRangeAllPages
    
End Sub

Private Sub PulisciGriglia()
    Dim m As Integer
    Dim g As Integer
    For m = 1 To 12
        'ciclo per i giorni
        For g = 1 To 31
            flxGriglia.TextMatrix(m, g) = " "
        Next g
    Next m
End Sub
